home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / spkr.src < prev    next >
Text File  |  1991-05-29  |  4KB  |  120 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ SPKR, by William K. McFadden
  3. DIR
  4.   CB
  5.     DIR
  6.       RESPONSE 'dBMAG=20*LOG(SQ(F/Fb)/\v/(SQ(SQ(F/Fb)-1)+SQ(F/Fb/Qb)))'
  7.       DESIGN.EQ { 'Vb=Vas/Vr' 'Fb=Qr*Fs'
  8. 'F3dB=Qr*Fs*\v/((1/Qb^2-2+\v/((1/Qb^2-2)^2+4))/2)' 'dBPEAK=20*LOG(AMAX)'
  9. 'AMAX=IFTE(Qb>INV(\v/2),SQ(Qb)/\v/(SQ(Qb)-.25),1)' 'Vr=Qr^2-1' 'Qr=Qb/Qts'
  10. 'Par=(4*\pi^3*1.18_kg/m^3)*Fb^4*Vd^2/((345_m/s)*AMAX^2)'
  11. 'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))' 'Per=Par/\Gno'
  12. '\Gno=10^((SPL-112_dB)/10)' 'Vd=Sd*xmax''Sd=\pi*(DIA*.83)^2/4' }
  13.       Vas '10.7_ft^3'
  14.       Qts .33
  15.       Fs '30_Hz'
  16.       SPL '95_dB'
  17.       DIA '18_in'
  18.       xmax '.216_in'
  19.       Vb '2.97936589107_ft^3'
  20.       Qb .707106781188
  21.       Fb '64.2824346534_Hz'
  22.       F3dB '64.2824346532_Hz'
  23.       dBPEAK '0_dB'
  24.       Par '2.78890515059_W'
  25.       PeakSPL '116.454337444_dB'
  26.       Per '139.776365727_W'
  27.       \Gno '1.99526231497_Percent'
  28.       Sd '175.303697504_in^2'
  29.       Vd '37.8655986609_in^3'
  30.       AMAX 1
  31.       Vr 3.59136822774
  32.       Qr 2.14274782178
  33.       dBMAG '-3.01029995662_dB'
  34.       F '40_Hz'
  35.       EQ RESPONSE
  36.       Mpar Library Data
  37.       PPAR { (0,-10) (200,5) F 0 (0,0) FUNCTION Y }
  38.       EQUALIZER
  39.         DIR
  40.           F3dB 20
  41.           f 20
  42.           CIRCUIT
  43.             \<< RCLF CLLCD 2 ENG "R1=" '1.0824/(C1*\Gw1)' \->NUM \->STR +
  44. " R8  =" + '(1-k)/k*R10' \->NUM \->STR + 1 DISP "R2=" '.9239/(C1*\Gw1)'
  45. \->NUM \->STR + " R9  =" + '(1-k)/ABS(m)*R10' \->NUM \->STR + 2 DISP "R3="
  46. '2.613/(C2*\Gw1)' \->NUM \->STR + " R10 =" + R10 \->STR + 3 DISP "R4="
  47. '.3827/(C2*\Gw1)' \->NUM \->STR + " R11 \>=" + '2*n/(\Gw1*C3)' \->NUM
  48. \->STR + 4 DISP "R5=" 'ABS(m)*R6' \->NUM \->STR + " C1-3=" + 1 ENG C
  49. \->STR + 5 DISP 2 ENG "R6=" R6 \->STR + " C4  \>=" + '2*n*C3' \->NUM
  50. \->STR + 6 DISP "R7=" '1/(\Gw1*C3)' \->NUM \->STR + 1 ENG " m=  " + m
  51. \->NUM \->STR + 7 DISP 3 FREEZE STOF
  52.             \>>
  53.           R 22000
  54.           C .000001
  55.           n 25
  56.           RESPONSE 'dB=20*LOG(ABS(F(s)))'
  57.           dB 17.3121294002
  58.           R6 R
  59.           R10 R
  60.           C3 C
  61.           C2 C
  62.           C1 C
  63.           EQ RESPONSE
  64.           PPAR { (0,-6) (100,20) f 0 (0,0) FUNCTION dB }
  65.           H2
  66.             \<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+1.8478*s/\Gw1+1)'
  67.             \>>
  68.           H1
  69.             \<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+.7654*s/\Gw1+1)'
  70.             \>>
  71.           \Gw '2*\pi*f'
  72.           s 'i*\Gw'
  73.           \Gwc '2*\pi*Fb/1_Hz'
  74.           \Gw1 '2*\pi*F3dB'
  75.           k '1-(\Gw1/\Gwc)^2'
  76.           m '\Gw1/(Qb*\Gwc)-.7654'
  77.           F
  78.             \<< \-> s '1/(1-k)*(1-k*H1(s)+m*(\Gw1/s)*H1(s))*H2(s)'
  79.             \>>
  80.           CST { F3dB CIRCUIT R C n }
  81.         END
  82.       CST { EQUALIZER }
  83.     END
  84.   PORTED
  85.     DIR
  86.       RESPONSE 'dBMAG=20*LOG(SQ(SQ(F/Fs))/\v/(SQ(SQ(SQ(F/Fs))-(1+SQ(Fb/Fs)+
  87. Fb/(7*Fs*Qts)+Vas/Vb)*SQ(F/Fs)+SQ(Fb/Fs))+SQ((SQ(Fb/Fs)/Qts+Fb/(7*Fs))*(F/Fs)-
  88. (1/Qts+Fb/(7*Fs))*(F/Fs)^3)))'
  89.       DESIGN.EQ { 'Vb=15*Qts^2.87*Vas' 'Fb=(Vas/Vb)^.32*Fs'
  90. 'F3dB=\v/(Vas/Vb)*Fs' 'dBPEAK=20*LOG(2.6*Qts*(Vas/Vb)^.35)'
  91. '\Gno=10^((SPL-112)/10)' 'Sd=\pi*(DIA*.83)^2/4' 'Vd=Sd*xmax'
  92. 'Par=(3_kg*s/m^4)*F3dB^4*Vd^2' 'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))'
  93. 'Per=Par/\Gno' }
  94.       Vas '10.7_ft^3'
  95.       Qts .33
  96.       Fs '30_Hz'
  97.       SPL '95_dB'
  98.       DIA '18_in'
  99.       xmax '.216_in'
  100.       Vb '6.66208307846_ft^3'
  101.       Fb '34.9115273652_Hz'
  102.       F3dB '38.019650607_Hz'
  103.       dBPEAK '.11016189141_dB'
  104.       Par '2.41349106451_W'
  105.       PeakSPL '115.826456953_dB'
  106.       Per '120.961091001_W'
  107.       \Gno '1.99526231497_Percent'
  108.       Sd '175.303697504_in^2'
  109.       Vd '37.8655986609_in^3'
  110.       dBMAG '-19.8795577277_dB'
  111.       F '20_Hz'
  112.       Mpar Library Data
  113.       PPAR { (0,-10) (200,3) F 0 (0,0) FUNCTION Y }
  114.       EQ RESPONSE
  115.       CST { }
  116.     END
  117.   Percent .01
  118.   CST { CB PORTED }
  119. END
  120.